home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / eyes / audreyEye2.wwModel / initialDefines.eve < prev    next >
Encoding:
Text File  |  1995-03-22  |  1.2 KB  |  37 lines
  1. set sphere(color) {1.0 0.0 0.0}
  2. set sphere(radius) 1.0
  3. EveCmd {set sphere(zMin) [expr {-1 * $sphere(radius)}]}
  4. EveCmd {set sphere(zMax) $sphere(radius)}
  5.  
  6. set sphere(thetaMax) 270.0
  7.  
  8. # this gives it a nice goofy look
  9. set sphere(volumePreservingScaleFactor) .875
  10.  
  11. EveCmd {set sphere(xScale) [expr 1./sqrt($sphere(volumePreservingScaleFactor))]}
  12. EveCmd {set sphere(yScale) $sphere(volumePreservingScaleFactor)}
  13. EveCmd {set sphere(zScale) [expr 1./sqrt($sphere(volumePreservingScaleFactor))]}
  14.  
  15. set sphere(xTranslate) 0
  16. set sphere(yTranslate) 0
  17. set sphere(zTranslate) 0
  18. set sphere(xRotate) 0
  19. set sphere(yRotate) 0
  20. set sphere(zRotate) 0
  21.  
  22. set eyeBall(irisColor)  {.389981 .305734 .78196}
  23. set eyeBall(irisSize)  .12
  24. set eyeBall(pupilSize) .05 
  25. set eyeBall(bloodShot) .85
  26. set eyeBall(upToDown) 0 
  27.  
  28. set eyeBall(upDownR) 0.5
  29. EveCmd {wwSet eyeBall(upDownRMin) [expr {.8 * (360 - $sphere(thetaMax))/-2.}]}
  30. EveCmd {wwSet eyeBall(upDownRMax) [expr {.8 * (360 - $sphere(thetaMax))/2.}]}
  31. proc rotateEyeBallUpDown {u min max}  {  Rotate [expr {lerpDown($u, $min, $max)}] 1 0 0 }
  32.  
  33. set eyeBall(leftRightR) 0.5
  34. set eyeBall(leftRightRMin) -45
  35. set eyeBall(leftRightRMax) 45
  36. proc rotateEyeBallLeftRight {u min max}  {  Rotate [expr {lerpDown($u, $min, $max)}] 0 1 0 }
  37.